home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / DEMON / LANGUAGE / POT.ARC / !pOtLand / Core / main_tpl
Text File  |  1995-05-06  |  2KB  |  90 lines
  1. #include <pOtRTL.h>
  2. #include "<ModName>.h"
  3. #include <stddef.h>
  4. #include <stdlib.h>
  5. #include <stdio.h>
  6. #include <signal.h>
  7.  
  8. #ifdef __sun__
  9. #define atexit(x) on_exit(x,NULL)
  10. # ifndef L_tmpnam
  11. # define L_tmpnam 1024
  12. # endif
  13. #endif
  14.  
  15. #ifdef __MSDOS__
  16. # ifdef __TURBOC__
  17. extern unsigned _stklen = 32768;
  18. # endif
  19. #endif
  20.  
  21. #ifdef __riscos
  22. #  define unlink remove
  23. #endif
  24.  
  25. pOt_LONGINT pOt__gc_heapthreshold = 65536;
  26.  
  27. void catch(signo)
  28.     int signo;
  29. {
  30.   switch(signo) {
  31.     case SIGINT: pOt__halt(__FILE__,__LINE__,22); break;
  32.     case SIGFPE: pOt__halt(__FILE__,__LINE__,14); break;
  33.     default: pOt__halt(__FILE__,__LINE__,16); break;
  34.   }
  35. } 
  36.   
  37. static void rmparfile()
  38. {
  39.   unlink(pOt__parfilename);
  40.   free(pOt__parfilename);
  41. }
  42.   
  43. int main(argc, argv)
  44.     int argc;
  45.     char **argv;
  46. {
  47.   FILE *parfp, *nestedfp;
  48.   int ch;
  49.  
  50.   parfp = NULL;
  51.   nestedfp = NULL;
  52.  
  53.   signal(SIGINT, catch);
  54.   signal(SIGFPE, catch);
  55.  
  56.   if((pOt__parfilename = malloc(L_tmpnam))==NULL) {
  57.     fprintf(stderr, "%s\n", "Not enough memory to start the program.");
  58.     exit(255);
  59.   }
  60.   tmpnam(pOt__parfilename);
  61.   parfp = fopen(pOt__parfilename, "w");
  62.   if(parfp == NULL) {
  63.     fprintf(stderr, "%s %s.\n", "Cannot create ", pOt__parfilename);
  64.     exit(255);
  65.   }
  66.   while(*(++argv)) {
  67. #ifdef __riscos
  68.     if((*argv)[0] == '!') { /* clashes with @ in pathnames */
  69. #else
  70.     if((*argv)[0] == '@') {
  71. #endif
  72.       nestedfp = fopen((*argv + 1), "r");
  73.       if(nestedfp == NULL) fprintf(stderr, "%s not found.\n", (*argv + 1));
  74.       else {
  75.         while((ch = fgetc(nestedfp)) != EOF) fputc(ch, parfp);
  76.         fputc('\n', parfp);
  77.         fclose(nestedfp);
  78.       }
  79.     } else fprintf(parfp, "%s\n", *argv);
  80.   }
  81.   fclose(parfp);
  82.   atexit(rmparfile);
  83.   
  84.   pOt_<ModName>__body();
  85.   pOt_<Command>_<ModName>();
  86.  
  87.   exit(0);
  88.   return 0;
  89. }
  90.